home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
tppop18c.arc
/
CURSOR.ASM
< prev
next >
Wrap
Assembly Source File
|
1991-04-28
|
406b
|
28 lines
.MODEL TPASCAL
LOCALS @@
.CODE
PUBLIC cursor
Cursor PROC FAR state:WORD
xor ax,ax
mov es,ax
mov cx,word ptr es:[0460h]
mov ax,state
or al,al
jz @@1
and ch,0Fh
jmp @@2
@@1:
or ch,20h
@@2:
mov ah,1
int 10h
ret
Cursor ENDP
END